﻿Public Class frmMywnMusicStreamer

    Private Sub frmMywnMusicStreamer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        wbMywnPlayer.DocumentText = "<body><script type=" + Chr(34) + "text/javascript" + Chr(34) + "charset=" + Chr(34) + "utf-8" + Chr(34) + ">" + vbNewLine + "playerWidth = 451;" + vbNewLine + "playerHeight = 220;" + vbNewLine + "</script><script type=" + Chr(34) + "text/javascript" + Chr(34) + " src=" + Chr(34) + "http://mywn.co.uk/music/streamer/js/loader.js" + Chr(34) + "></script></body>"

    End Sub

    Private Sub wbMywnPlayer_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles wbMywnPlayer.DocumentCompleted
        lblLoading.Visible = False
        pnlLoading.Visible = False
    End Sub

    Private Sub frmMywnMusicStreamer_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        If My.Application.CommandLineArgs.Contains("/mmr") Then
            frmMain.Close()
        End If
    End Sub
End Class